【VBA实用案例】给你两个自定义函数,按颜色统计从此不再发愁! |
您所在的位置:网站首页 › vba 自定义函数参数指定怎么用 › 【VBA实用案例】给你两个自定义函数,按颜色统计从此不再发愁! |
废话不说了,直接上代码。 1.根据颜色求和代码 Function SumColor(i As Range, ary1 As Range) Dim icell As Range Application.Volatile For Each icell In ary1 If icell.Interior.ColorIndex = i.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icell End Function 2.根据颜色计数代码 Function CountColor(x As Range, ary2 As Range) Application.Volatile For Each i In ary2 If i.Interior.ColorIndex = x.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next End Function 简单说明一下用法:两段代码分别定义了SumColor与CountColor两个自定义函数 SumColor:对指定颜色的单元格求和 第一参数:想要求和的单元格颜色 第二参数:求和的数据区域 CountColor:对指定颜色的单元格计数 第一参数:想要计数的单元格颜色 第二参数:想要计数的单元格区域
自定义函数代码的使用方法: 点击开发工具,然后点击visal basic,然后在vba的编辑界面中点击插入,选择模块,将刚才定义的两个函数粘贴进去,直接将界面关闭即可 自定义函数的使用方法: 参考动画演示就行了
对于大部分没有编程基础的职场人士来说,在学习VBA时往往会有很大的畏难情绪。 想学习VBA的朋友推荐 《人人学点VBA》 这款基础教程: 《人人学点VBA,Excel VBA的基础入门教程》 这个教程看了下还不错,浅显易懂的语言和生动形象的比喻,对Excel中看似复杂的概念和代码,从简单的宏录制、VBA编程环境和基础语法的介绍,到常用对象的操作与控制、执行程序的自动开关—对象的事件、设计自定义的操作界面、调试与优化编写的代码,都进行了形象的介绍。适合那些希望提高工作效率的职场人士,特别是经常需要处理和分析大量数据的用户,也适合财经专业的高校师生阅读。
想学习一整套完整Excel课程的,可以去这里拍: office软件PPT Word Excel办公教程 入门到精通全套自学视频教学 赠送全套Office软件 赠送全套正版OFFICE软件:Office 2003、2007、2010。 全自动安装、安装过程自动激活、永久使用
转载请注明:日记男孩的博客 » 【VBA实用案例】给你两个自定义函数,按颜色统计从此不再发愁! 赞赏
|
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |